home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 January / macformat-020.iso / Shareware City / Sound / DX7 Librarian 1.1.0 / Sample Scripts / 23 VoiceName -> FileName < prev    next >
Encoding:
Text File  |  1994-10-01  |  891 b   |  26 lines  |  [TEXT/ToyS]
  1. tell application "DX7 Librarian"
  2.     activate -- if needed
  3.     set p01 to Parameter 145 of Window 1
  4.     set p02 to Parameter 146 of Window 1
  5.     set p03 to Parameter 147 of Window 1
  6.     set p04 to Parameter 148 of Window 1
  7.     set p05 to Parameter 149 of Window 1
  8.     set p06 to Parameter 150 of Window 1
  9.     set p07 to Parameter 151 of Window 1
  10.     set p08 to Parameter 152 of Window 1
  11.     set p09 to Parameter 153 of Window 1
  12.     set p10 to Parameter 154 of Window 1
  13.     set s to "Macintosh HD:Desktop Folder:"
  14.     set s to s & (ASCII character (p01))
  15.     set s to s & (ASCII character (p02))
  16.     set s to s & (ASCII character (p03))
  17.     set s to s & (ASCII character (p04))
  18.     set s to s & (ASCII character (p05))
  19.     set s to s & (ASCII character (p06))
  20.     set s to s & (ASCII character (p07))
  21.     set s to s & (ASCII character (p08))
  22.     set s to s & (ASCII character (p09))
  23.     set s to s & (ASCII character (p10))
  24.     save Window 1 in file s
  25. end tell
  26.